! 2 -> 3

      end if
    end do

    block => block % next
  end do
